home *** CD-ROM | disk | FTP | other *** search
/ MaxiMac 2000 December / MaxiMac 109.iso / KitWeb / Wanadoo / Media / Present.dcr / Scripts_68_Merci.ls < prev    next >
Encoding:
Text File  |  2000-10-10  |  1.7 KB  |  60 lines
  1. on mouseUp me
  2.   global gParV5, gLanAct, gPC, gParamInstPC, gOffre, gOffreKit, gParamOffrePC, gParamOffreMacLan, gParamOffreMacInt, gParamOffreMacAli
  3.   sprite(140).loc = point(0, 0)
  4.   updateStage()
  5.   repeat while soundBusy(2)
  6.     updateStage()
  7.   end repeat
  8.   puppetSound(2, "Lien3f10")
  9.   updateStage()
  10.   repeat while the volume of sound 1 > 10
  11.     set the volume of sound 1 to the volume of sound 1 * 0.80000000000000004
  12.     startTimer()
  13.     repeat while the timer < 3
  14.       updateStage()
  15.     end repeat
  16.   end repeat
  17.   puppetSound(1, 0)
  18.   set the volume of sound 1 to gParV5.sonLvl[1]
  19.   updateStage()
  20.   vP = the moviePath
  21.   repeat with i = 1 to 6
  22.     delete char -30000 of vP
  23.   end repeat
  24.   case gOffre of
  25.     "int":
  26.       if gLanAct then
  27.         if gPC then
  28.           vP = vP & "Datas\KitWanadoo.exe LAN=1," & gParamOffrePC[getPos(gOffreKit, "int")]
  29.         else
  30.           vP = vP & "Datas:Installations:" & gParamOffreMacLan
  31.         end if
  32.       else
  33.         if gPC then
  34.           vP = vP & "Datas\KitWanadoo.exe LAN=0," & gParamOffrePC[getPos(gOffreKit, "int")]
  35.         else
  36.           vP = vP & "Datas:Installations:" & gParamOffreMacInt
  37.         end if
  38.       end if
  39.     "ali":
  40.       if gLanAct then
  41.         if gPC then
  42.           vP = vP & "Datas\KitWanadoo.exe LAN=1," & gParamOffrePC[getPos(gOffreKit, "ali")]
  43.         else
  44.           vP = vP & "Datas:Installations:" & gParamOffreMacLan
  45.         end if
  46.       else
  47.         if gPC then
  48.           vP = vP & "Datas\KitWanadoo.exe LAN=0," & gParamOffrePC[getPos(gOffreKit, "ali")]
  49.         else
  50.           vP = vP & "Datas:Installations:" & gParamOffreMacAli
  51.         end if
  52.       end if
  53.   end case
  54.   repeat while soundBusy(2)
  55.     updateStage()
  56.   end repeat
  57.   open(vP)
  58.   halt()
  59. end
  60.